CONVERT: PROCEDURE OPTIONS (MAIN);                                    CON00010
     /*A PROGRAM TO FORMAT PSEUDO-MARC RECORDS*/                        CON00020
                                                                        CON00030
     DECLARE                                                            CON00040
        DIR(10) FIXED (3,0),/*DIRECTORY ARRAY*/                         CON00070
        I FIXED (2,0),/*COUNTER*/                                       CON00080
        BIB CHAR (134) VARYING,/*BIBLIOGRAPHICAL MATERIAL*/             CON00090
        BIB←PART(9) CHAR (50) VARYING,/*BIB SEGMENTS*/                  CON00100
        OKOK BIT (1);/*END FLAG*/                                       CON00110
                                                                        CON00120
   /*INITIALIZE VARIABLES*/                                             CON00130
                                                                        COJ00140
     I = 0;                                                             CON00150
     DIR = 0;                                                           CON00160
     BIB←PART = 0;                                                      CON00170
     OKOK = '1'B;                                                       CON00180
     DIR(10) = 161;                                                     CON00190
                                                                        CON00200
     ON ENDFILE (SYSIN) OKOK = '0'B;                                    CON00210
                                                                        CON00220
        GET EDIT ((DIR (I) DO I = 1 TO 9),BIB)                          CON00230
           (9 F(3,0),A(133));                                           CON00240
                                                                        CON00250
  MRCTIME:                                                              CON00260
     DO WHILE (OKOK);                                                   CON00270
                                                                        CON00280
     USEDIR:                                                            CON00290
        DO I = 1 TO 9;/*BREAK BIB INTO SEGMENTS USING DIR NUMBERS*/     CON00300
           BIB←PART(I) = SUBSTR (BIB,DIR(I),DIR(I + 1) - DIR(I));       CON00310
        END USEDIR;                                                     CON00320
                                                                        CON00330
     PUT SKIP LIST /*PRINT BIB←PART(1-3) ON ONE LINE (W) PUNCT.*/       CON00340
        (BIB←PART(1)||', '||BIB←PART(2)||'.  '||BIB←PART(3)||           CON00350
          '.  ');
     PUT SKIP LIST /*PRINT BIB←PART (4-6) ON ONE LINE (W) PUNCT.*/
        (BIB←PART(4)||', '||BIB←PART(5)||'. '||BIB←PART(6)||' P.');     CON00360
     PUT SKIP LIST /*PRINT BIB←PART(7) ON NEXT LINE (W) PUNCT.*/      CON00370
        ('     '||'LC CARD NO.: '||BIB←PART(7)||'.');
     PUT SKIP LIST /*PRINT BIB←PART(8) ON NEXT LINE (W) PUNCT.*/      CON00370
        ('     '||'ISBN: '||BIB←PART(8)||'.');
     PUT SKIP LIST /*PRINT BIB←PART(9) ON NEXT LINE (W) PUNCT.*/      CON00370
        ('     '||'LC CALL NO.: '||BIB←PART(9));                       CON00380
                                                                        CON00400
        GET EDIT ((DIR(I) DO I = 1 TO 9),BIB)                           CON00410
           (9 F(3,0),A(133));                                           CON00420
                                                                        CON00430
     END MRCTIME;                                                       CON00440
  END CONVERT;                                                          CON00450

R; T=0.04/0.20 21:38:23

.λ